home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / raytrace / pov / gen / form04a / sue / monster.frm < prev    next >
Encoding:
Text File  |  1994-01-25  |  584 b   |  18 lines
  1. Copyright (c) Sue Cunningham
  2.  
  3. cone1 = ellipse 1, 0.2 stack 10 grow 0.1;
  4. cone1a= ellipse 0.1, 0.2 stack 10 grow 10;
  5. cone2 = sphere 1, [cone1], sphere 1 delete 1 delete 3;
  6. s1 =  sphere 1 delete 1;
  7. teeth = s1 web 10 with cone2 1 hole 4;
  8. seg1 = torus 0.5, 5;
  9. seg1a = torus 0.2, 2;
  10. seg2 = [seg1], sphere 2.5, cone1 delete 2;
  11. seg2a= [seg1], sphere -4.9, cone1a delete 2;
  12. seg3 = [seg1] stack 3, seg2, spacer -9;
  13. seg4 = [seg1a] stack 100 in 25% bend 360 twist 360 , 2 grow 0.1;
  14. bigt = seg3 stack 100 in 10% bend 360 twist 2*360, 3 grow 3;
  15. monster = seg4, bigt;
  16. monster;
  17. end;
  18.